MacFormat España 24/MacFormat n. 24 (Spain)/MacFormat 24.bin/Demos/Jungle Activated!/JungleActivated Demo/jung DEMO d/00187_Juke Box- Go to.ls

Text File | 1996-10-14 | 827 b | 34 lines

on mouseUp
  global gWhereFrom, gFragment1, gFragment2, gFragment3, gFragment4, gFragmentCast, gBackgroundSound
  cursor(-1)
  repeat with i = 1 to 48
    puppetSprite(i, 0)
  end repeat
  set gWhereFrom to the frameLabel
  set GameOver to 0
  if gFragment1 = 1 then
    if gFragment2 = 1 then
      if gFragment3 = 1 then
        if gFragment4 = 1 then
          set GameOver to 1
          if gBackgroundSound < 20 then
            go("Juke Box 2")
          end if
          if gBackgroundSound > 19 then
            go(label("K" & gBackgroundSound))
          end if
        end if
      end if
    end if
  end if
  if GameOver = 0 then
    if gBackgroundSound < 20 then
      sound stop 2
      go("Juke Box 1")
    end if
    if gBackgroundSound > 19 then
      go(label("J" & gBackgroundSound))
    end if
  end if
end